<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE DeriveDataTypeable #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
</span><span id="line-3"></span><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
</span><span id="line-4"></span><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
</span><span id="line-5"></span><span class="hs-pragma">{-# LANGUAGE PatternGuards #-}</span><span>
</span><span id="line-6"></span><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span>
</span><span id="line-7"></span><span class="hs-pragma">{-# LANGUAGE NoMonoLocalBinds #-}</span><span>
</span><span id="line-8"></span><span class="hs-pragma">{-# LANGUAGE NondecreasingIndentation #-}</span><span>
</span><span id="line-9"></span><span>
</span><span id="line-10"></span><span class="hs-comment">-- | See &lt;https://github.com/ezyang/ghc-proposals/blob/backpack/proposals/0000-backpack.rst&gt;</span><span>
</span><span id="line-11"></span><span class="hs-comment">--</span><span>
</span><span id="line-12"></span><span class="hs-comment">-- WARNING: The contents of this module are HIGHLY experimental.</span><span>
</span><span id="line-13"></span><span class="hs-comment">-- We may refactor it under you.</span><span>
</span><span id="line-14"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Distribution.Backpack.Configure</span><span> </span><span class="hs-special">(</span><span>
</span><span id="line-15"></span><span>    </span><span class="annot"><a href="Distribution.Backpack.Configure.html#configureComponentLocalBuildInfos"><span class="hs-identifier">configureComponentLocalBuildInfos</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-16"></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-17"></span><span>
</span><span id="line-18"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-19"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Compat.Prelude.html"><span class="hs-identifier">Distribution.Compat.Prelude</span></a></span><span> </span><span class="hs-keyword">hiding</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#%3C%3E"><span class="hs-operator">(&lt;&gt;)</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-20"></span><span>
</span><span id="line-21"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.html"><span class="hs-identifier">Distribution.Backpack</span></a></span><span>
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.FullUnitId.html"><span class="hs-identifier">Distribution.Backpack.FullUnitId</span></a></span><span>
</span><span id="line-23"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.PreExistingComponent.html"><span class="hs-identifier">Distribution.Backpack.PreExistingComponent</span></a></span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.ConfiguredComponent.html"><span class="hs-identifier">Distribution.Backpack.ConfiguredComponent</span></a></span><span>
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.LinkedComponent.html"><span class="hs-identifier">Distribution.Backpack.LinkedComponent</span></a></span><span>
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.ReadyComponent.html"><span class="hs-identifier">Distribution.Backpack.ReadyComponent</span></a></span><span>
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.ComponentsGraph.html"><span class="hs-identifier">Distribution.Backpack.ComponentsGraph</span></a></span><span>
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Backpack.Id.html"><span class="hs-identifier">Distribution.Backpack.Id</span></a></span><span>
</span><span id="line-29"></span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html"><span class="hs-identifier">Distribution.Simple.Compiler</span></a></span><span>
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Package.html"><span class="hs-identifier">Distribution.Package</span></a></span><span>
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.InstalledPackageInfo.html"><span class="hs-identifier">Distribution.InstalledPackageInfo</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Installed</span></span><span>
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.InstalledPackageInfo.html"><span class="hs-identifier">Distribution.InstalledPackageInfo</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier">InstalledPackageInfo</span></a></span><span>
</span><span id="line-34"></span><span>                                         </span><span class="hs-special">,</span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#emptyInstalledPackageInfo"><span class="hs-identifier">emptyInstalledPackageInfo</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html"><span class="hs-identifier">Distribution.Simple.PackageIndex</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">PackageIndex</span></span><span>
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html"><span class="hs-identifier">Distribution.Simple.PackageIndex</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Simple.PackageIndex.html#InstalledPackageIndex"><span class="hs-identifier">InstalledPackageIndex</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.PackageDescription.html"><span class="hs-identifier">Distribution.PackageDescription</span></a></span><span>
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.ModuleName.html"><span class="hs-identifier">Distribution.ModuleName</span></a></span><span>
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.Setup.html"><span class="hs-identifier">Distribution.Simple.Setup</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Setup</span></span><span>
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Simple.LocalBuildInfo.html"><span class="hs-identifier">Distribution.Simple.LocalBuildInfo</span></a></span><span>
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.AnnotatedId.html"><span class="hs-identifier">Distribution.Types.AnnotatedId</span></a></span><span>
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentRequestedSpec.html"><span class="hs-identifier">Distribution.Types.ComponentRequestedSpec</span></a></span><span>
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentInclude.html"><span class="hs-identifier">Distribution.Types.ComponentInclude</span></a></span><span>
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Types.MungedPackageName.html"><span class="hs-identifier">Distribution.Types.MungedPackageName</span></a></span><span>
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html"><span class="hs-identifier">Distribution.Verbosity</span></a></span><span>
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="Distribution.Compat.Graph.html"><span class="hs-identifier">Distribution.Compat.Graph</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Graph</span></span><span>
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Compat.Graph.html"><span class="hs-identifier">Distribution.Compat.Graph</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Compat.Graph.html#Graph"><span class="hs-identifier">Graph</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Compat.Graph.html#IsNode"><span class="hs-identifier">IsNode</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-48"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Utils.LogProgress.html"><span class="hs-identifier">Distribution.Utils.LogProgress</span></a></span><span>
</span><span id="line-49"></span><span>
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#"><span class="hs-identifier">Data.Either</span></a></span><span>
</span><span id="line-51"></span><span>    </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#lefts"><span class="hs-identifier">lefts</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../containers/src/Data.Set.html#"><span class="hs-identifier">Data.Set</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../containers/src/Data.Map.html#"><span class="hs-identifier">Data.Map</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
</span><span id="line-54"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Distribution.Pretty.html"><span class="hs-identifier">Distribution.Pretty</span></a></span><span>
</span><span id="line-55"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../pretty/src/Text.PrettyPrint.html#"><span class="hs-identifier">Text.PrettyPrint</span></a></span><span>
</span><span id="line-56"></span><span>
</span><span id="line-57"></span><span class="hs-comment">------------------------------------------------------------------------------</span><span>
</span><span id="line-58"></span><span class="hs-comment">-- Pipeline</span><span>
</span><span id="line-59"></span><span class="hs-comment">------------------------------------------------------------------------------</span><span>
</span><span id="line-60"></span><span>
</span><span id="line-61"></span><span class="annot"><a href="Distribution.Backpack.Configure.html#configureComponentLocalBuildInfos"><span class="hs-identifier hs-type">configureComponentLocalBuildInfos</span></a></span><span>
</span><span id="line-62"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>
</span><span id="line-63"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>                   </span><span class="hs-comment">-- use_external_internal_deps</span><span>
</span><span id="line-64"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.ComponentRequestedSpec.html#ComponentRequestedSpec"><span class="hs-identifier hs-type">ComponentRequestedSpec</span></a></span><span>
</span><span id="line-65"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>                   </span><span class="hs-comment">-- deterministic</span><span>
</span><span id="line-66"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>            </span><span class="hs-comment">-- configIPID</span><span>
</span><span id="line-67"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Flag.html#Flag"><span class="hs-identifier hs-type">Flag</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.ComponentId.html#ComponentId"><span class="hs-identifier hs-type">ComponentId</span></a></span><span>       </span><span class="hs-comment">-- configCID</span><span>
</span><span id="line-68"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span>
</span><span id="line-69"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.PreExistingComponent.html#PreExistingComponent"><span class="hs-identifier hs-type">PreExistingComponent</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-70"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.Flag.html#FlagAssignment"><span class="hs-identifier hs-type">FlagAssignment</span></a></span><span>         </span><span class="hs-comment">-- configConfigurationsFlags</span><span>
</span><span id="line-71"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.ModuleName.html#ModuleName"><span class="hs-identifier hs-type">ModuleName</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Types.Module.html#Module"><span class="hs-identifier hs-type">Module</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- configInstantiateWith</span><span>
</span><span id="line-72"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html#InstalledPackageIndex"><span class="hs-identifier hs-type">InstalledPackageIndex</span></a></span><span>
</span><span id="line-73"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span>
</span><span id="line-74"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Utils.LogProgress.html#LogProgress"><span class="hs-identifier hs-type">LogProgress</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html#InstalledPackageIndex"><span class="hs-identifier hs-type">InstalledPackageIndex</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span id="configureComponentLocalBuildInfos"><span class="annot"><span class="annottext">configureComponentLocalBuildInfos :: Verbosity
-&gt; Bool
-&gt; ComponentRequestedSpec
-&gt; Bool
-&gt; Flag [Char]
-&gt; Flag ComponentId
-&gt; PackageDescription
-&gt; [PreExistingComponent]
-&gt; FlagAssignment
-&gt; [(ModuleName, Module)]
-&gt; InstalledPackageIndex
-&gt; Compiler
-&gt; LogProgress ([ComponentLocalBuildInfo], InstalledPackageIndex)
</span><a href="Distribution.Backpack.Configure.html#configureComponentLocalBuildInfos"><span class="hs-identifier hs-var hs-var">configureComponentLocalBuildInfos</span></a></span></span><span>
</span><span id="line-76"></span><span>    </span><span id="local-6989586621679724557"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679724557"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679724556"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679724556"><span class="hs-identifier hs-var">use_external_internal_deps</span></a></span></span><span> </span><span id="local-6989586621679724555"><span class="annot"><span class="annottext">ComponentRequestedSpec
</span><a href="#local-6989586621679724555"><span class="hs-identifier hs-var">enabled</span></a></span></span><span> </span><span id="local-6989586621679724554"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679724554"><span class="hs-identifier hs-var">deterministic</span></a></span></span><span> </span><span id="local-6989586621679724553"><span class="annot"><span class="annottext">Flag [Char]
</span><a href="#local-6989586621679724553"><span class="hs-identifier hs-var">ipid_flag</span></a></span></span><span> </span><span id="local-6989586621679724552"><span class="annot"><span class="annottext">Flag ComponentId
</span><a href="#local-6989586621679724552"><span class="hs-identifier hs-var">cid_flag</span></a></span></span><span> </span><span id="local-6989586621679724551"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span>
</span><span id="line-77"></span><span>    </span><span id="local-6989586621679724550"><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724550"><span class="hs-identifier hs-var">prePkgDeps</span></a></span></span><span> </span><span id="local-6989586621679724549"><span class="annot"><span class="annottext">FlagAssignment
</span><a href="#local-6989586621679724549"><span class="hs-identifier hs-var">flagAssignment</span></a></span></span><span> </span><span id="local-6989586621679724548"><span class="annot"><span class="annottext">[(ModuleName, Module)]
</span><a href="#local-6989586621679724548"><span class="hs-identifier hs-var">instantiate_with</span></a></span></span><span> </span><span id="local-6989586621679724547"><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724547"><span class="hs-identifier hs-var">installedPackageSet</span></a></span></span><span> </span><span id="local-6989586621679724546"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724546"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-78"></span><span>    </span><span class="hs-comment">-- NB: In single component mode, this returns a *single* component.</span><span>
</span><span id="line-79"></span><span>    </span><span class="hs-comment">-- In this graph, the graph is NOT closed.</span><span>
</span><span id="line-80"></span><span>    </span><span id="local-6989586621679724545"><span class="annot"><span class="annottext">ComponentsWithDeps
</span><a href="#local-6989586621679724545"><span class="hs-identifier hs-var">graph0</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ComponentRequestedSpec
-&gt; PackageDescription -&gt; Either [ComponentName] ComponentsGraph
</span><a href="Distribution.Backpack.ComponentsGraph.html#mkComponentsGraph"><span class="hs-identifier hs-var">mkComponentsGraph</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentRequestedSpec
</span><a href="#local-6989586621679724555"><span class="hs-identifier hs-var">enabled</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-81"></span><span>                </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679724543"><span class="annot"><span class="annottext">[ComponentName]
</span><a href="#local-6989586621679724543"><span class="hs-identifier hs-var">ccycle</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ComponentsWithDeps
forall a. Doc -&gt; LogProgress a
</span><a href="Distribution.Utils.LogProgress.html#dieProgress"><span class="hs-identifier hs-var">dieProgress</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageIdentifier -&gt; [ComponentName] -&gt; Doc
</span><a href="Distribution.Backpack.ComponentsGraph.html#componentCycleMsg"><span class="hs-identifier hs-var">componentCycleMsg</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
</span><a href="Distribution.Types.PackageDescription.html#package"><span class="hs-identifier hs-var hs-var">package</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[ComponentName]
</span><a href="#local-6989586621679724543"><span class="hs-identifier hs-var">ccycle</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-82"></span><span>                </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679724539"><span class="annot"><span class="annottext">ComponentsGraph
</span><a href="#local-6989586621679724539"><span class="hs-identifier hs-var">g</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ComponentsWithDeps -&gt; LogProgress ComponentsWithDeps
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentsGraph -&gt; ComponentsWithDeps
</span><a href="Distribution.Backpack.ComponentsGraph.html#componentsGraphToList"><span class="hs-identifier hs-var">componentsGraphToList</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentsGraph
</span><a href="#local-6989586621679724539"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-83"></span><span>    </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
</span><a href="Distribution.Utils.LogProgress.html#infoProgress"><span class="hs-identifier hs-var">infoProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ()) -&gt; Doc -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Int -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#hang"><span class="hs-identifier hs-var">hang</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;Source component graph:&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-84"></span><span>                        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentsWithDeps -&gt; Doc
</span><a href="Distribution.Backpack.ComponentsGraph.html#dispComponentsWithDeps"><span class="hs-identifier hs-var">dispComponentsWithDeps</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentsWithDeps
</span><a href="#local-6989586621679724545"><span class="hs-identifier hs-var">graph0</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679724527"><span class="annot"><span class="annottext">conf_pkg_map :: Map PackageName (Map ComponentName (AnnotatedId ComponentId))
</span><a href="#local-6989586621679724527"><span class="hs-identifier hs-var hs-var">conf_pkg_map</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Map ComponentName (AnnotatedId ComponentId)
 -&gt; Map ComponentName (AnnotatedId ComponentId)
 -&gt; Map ComponentName (AnnotatedId ComponentId))
-&gt; [(PackageName, Map ComponentName (AnnotatedId ComponentId))]
-&gt; Map PackageName (Map ComponentName (AnnotatedId ComponentId))
forall k a. Ord k =&gt; (a -&gt; a -&gt; a) -&gt; [(k, a)] -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#fromListWith"><span class="hs-identifier hs-var">Map.fromListWith</span></a></span><span> </span><span class="annot"><span class="annottext">Map ComponentName (AnnotatedId ComponentId)
-&gt; Map ComponentName (AnnotatedId ComponentId)
-&gt; Map ComponentName (AnnotatedId ComponentId)
forall k a. Ord k =&gt; Map k a -&gt; Map k a -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#union"><span class="hs-identifier hs-var">Map.union</span></a></span><span>
</span><span id="line-87"></span><span>            </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="annottext">PreExistingComponent -&gt; PackageName
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_pkgname"><span class="hs-identifier hs-var hs-var">pc_pkgname</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-88"></span><span>                </span><span class="annot"><span class="annottext">ComponentName
-&gt; AnnotatedId ComponentId
-&gt; Map ComponentName (AnnotatedId ComponentId)
forall k a. k -&gt; a -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#singleton"><span class="hs-identifier hs-var">Map.singleton</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PreExistingComponent -&gt; ComponentName
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_compname"><span class="hs-identifier hs-var hs-var">pc_compname</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-89"></span><span>                              </span><span class="hs-special">(</span><span class="annot"><span class="annottext">AnnotatedId :: forall id.
PackageIdentifier -&gt; ComponentName -&gt; id -&gt; AnnotatedId id
</span><a href="Distribution.Types.AnnotatedId.html#AnnotatedId"><span class="hs-identifier hs-type">AnnotatedId</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-90"></span><span>                                </span><span class="annot"><span class="annottext">ann_id :: ComponentId
</span><a href="Distribution.Types.AnnotatedId.html#ann_id"><span class="hs-identifier hs-var">ann_id</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; ComponentId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_cid"><span class="hs-identifier hs-var hs-var">pc_cid</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-91"></span><span>                                </span><span class="annot"><span class="annottext">ann_pid :: PackageIdentifier
</span><a href="Distribution.Types.AnnotatedId.html#ann_pid"><span class="hs-identifier hs-var">ann_pid</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-92"></span><span>                                </span><span class="annot"><span class="annottext">ann_cname :: ComponentName
</span><a href="Distribution.Types.AnnotatedId.html#ann_cname"><span class="hs-identifier hs-var">ann_cname</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; ComponentName
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_compname"><span class="hs-identifier hs-var hs-var">pc_compname</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span><span>
</span><span id="line-93"></span><span>                              </span><span class="hs-special">}</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-94"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679724523"><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724523"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724550"><span class="hs-identifier hs-var">prePkgDeps</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-95"></span><span>    </span><span id="local-6989586621679724514"><span class="annot"><span class="annottext">[ConfiguredComponent]
</span><a href="#local-6989586621679724514"><span class="hs-identifier hs-var">graph1</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; FlagAssignment
-&gt; Bool
-&gt; Flag [Char]
-&gt; Flag ComponentId
-&gt; PackageDescription
-&gt; Map PackageName (Map ComponentName (AnnotatedId ComponentId))
-&gt; [Component]
-&gt; LogProgress [ConfiguredComponent]
</span><a href="Distribution.Backpack.ConfiguredComponent.html#toConfiguredComponents"><span class="hs-identifier hs-var">toConfiguredComponents</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679724556"><span class="hs-identifier hs-var">use_external_internal_deps</span></a></span><span>
</span><span id="line-96"></span><span>                    </span><span class="annot"><span class="annottext">FlagAssignment
</span><a href="#local-6989586621679724549"><span class="hs-identifier hs-var">flagAssignment</span></a></span><span>
</span><span id="line-97"></span><span>                    </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679724554"><span class="hs-identifier hs-var">deterministic</span></a></span><span> </span><span class="annot"><span class="annottext">Flag [Char]
</span><a href="#local-6989586621679724553"><span class="hs-identifier hs-var">ipid_flag</span></a></span><span> </span><span class="annot"><span class="annottext">Flag ComponentId
</span><a href="#local-6989586621679724552"><span class="hs-identifier hs-var">cid_flag</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span>
</span><span id="line-98"></span><span>                    </span><span class="annot"><span class="annottext">Map PackageName (Map ComponentName (AnnotatedId ComponentId))
</span><a href="#local-6989586621679724527"><span class="hs-identifier hs-var">conf_pkg_map</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">((Component, [ComponentName]) -&gt; Component)
-&gt; ComponentsWithDeps -&gt; [Component]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(Component, [ComponentName]) -&gt; Component
forall a b. (a, b) -&gt; a
</span><a href="../../base/src/Data.Tuple.html#fst"><span class="hs-identifier hs-var">fst</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentsWithDeps
</span><a href="#local-6989586621679724545"><span class="hs-identifier hs-var">graph0</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-99"></span><span>    </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
</span><a href="Distribution.Utils.LogProgress.html#infoProgress"><span class="hs-identifier hs-var">infoProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ()) -&gt; Doc -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Int -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#hang"><span class="hs-identifier hs-var">hang</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;Configured component graph:&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-100"></span><span>                        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Doc] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#vcat"><span class="hs-identifier hs-var">vcat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(ConfiguredComponent -&gt; Doc) -&gt; [ConfiguredComponent] -&gt; [Doc]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ConfiguredComponent -&gt; Doc
</span><a href="Distribution.Backpack.ConfiguredComponent.html#dispConfiguredComponent"><span class="hs-identifier hs-var">dispConfiguredComponent</span></a></span><span> </span><span class="annot"><span class="annottext">[ConfiguredComponent]
</span><a href="#local-6989586621679724514"><span class="hs-identifier hs-var">graph1</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-101"></span><span>
</span><span id="line-102"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679724508"><span class="annot"><span class="annottext">shape_pkg_map :: Map ComponentId (OpenUnitId, ModuleShape)
</span><a href="#local-6989586621679724508"><span class="hs-identifier hs-var hs-var">shape_pkg_map</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(ComponentId, (OpenUnitId, ModuleShape))]
-&gt; Map ComponentId (OpenUnitId, ModuleShape)
forall k a. Ord k =&gt; [(k, a)] -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#fromList"><span class="hs-identifier hs-var">Map.fromList</span></a></span><span>
</span><span id="line-103"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PreExistingComponent -&gt; ComponentId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_cid"><span class="hs-identifier hs-var hs-var">pc_cid</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724506"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PreExistingComponent -&gt; OpenUnitId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_open_uid"><span class="hs-identifier hs-var hs-var">pc_open_uid</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724506"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; ModuleShape
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_shape"><span class="hs-identifier hs-var hs-var">pc_shape</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724506"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-104"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679724506"><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724506"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724550"><span class="hs-identifier hs-var">prePkgDeps</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-105"></span><span>        </span><span id="local-6989586621679724496"><span class="annot"><span class="annottext">uid_lookup :: DefUnitId -&gt; FullUnitId
</span><a href="#local-6989586621679724496"><span class="hs-identifier hs-var hs-var">uid_lookup</span></a></span></span><span> </span><span id="local-6989586621679724495"><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724495"><span class="hs-identifier hs-var">def_uid</span></a></span></span><span>
</span><span id="line-106"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679724494"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724494"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; UnitId -&gt; Maybe InstalledPackageInfo
forall a. PackageIndex a -&gt; UnitId -&gt; Maybe a
</span><a href="Distribution.Simple.PackageIndex.html#lookupUnitId"><span class="hs-identifier hs-var">PackageIndex.lookupUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724547"><span class="hs-identifier hs-var">installedPackageSet</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724492"><span class="hs-identifier hs-var">uid</span></a></span><span>
</span><span id="line-107"></span><span>            </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId -&gt; OpenModuleSubst -&gt; FullUnitId
</span><a href="Distribution.Backpack.FullUnitId.html#FullUnitId"><span class="hs-identifier hs-var">FullUnitId</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; ComponentId
</span><a href="Distribution.InstalledPackageInfo.html#installedComponentId"><span class="hs-identifier hs-var">Installed.installedComponentId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724494"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-108"></span><span>                 </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[(ModuleName, OpenModule)] -&gt; OpenModuleSubst
forall k a. Ord k =&gt; [(k, a)] -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#fromList"><span class="hs-identifier hs-var">Map.fromList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; [(ModuleName, OpenModule)]
</span><a href="Distribution.Types.InstalledPackageInfo.html#instantiatedWith"><span class="hs-identifier hs-var hs-var">Installed.instantiatedWith</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724494"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-109"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; FullUnitId
forall a. HasCallStack =&gt; [Char] -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;uid_lookup: &quot;</span></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; [Char]
forall a. Pretty a =&gt; a -&gt; [Char]
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724492"><span class="hs-identifier hs-var">uid</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-110"></span><span>          </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679724492"><span class="annot"><span class="annottext">uid :: UnitId
</span><a href="#local-6989586621679724492"><span class="hs-identifier hs-var hs-var">uid</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">DefUnitId -&gt; UnitId
</span><a href="Distribution.Types.UnitId.html#unDefUnitId"><span class="hs-identifier hs-var hs-var">unDefUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724495"><span class="hs-identifier hs-var">def_uid</span></a></span><span>
</span><span id="line-111"></span><span>    </span><span id="local-6989586621679724485"><span class="annot"><span class="annottext">[LinkedComponent]
</span><a href="#local-6989586621679724485"><span class="hs-identifier hs-var">graph2</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">Verbosity
-&gt; (DefUnitId -&gt; FullUnitId)
-&gt; PackageIdentifier
-&gt; Map ComponentId (OpenUnitId, ModuleShape)
-&gt; [ConfiguredComponent]
-&gt; LogProgress [LinkedComponent]
</span><a href="Distribution.Backpack.LinkedComponent.html#toLinkedComponents"><span class="hs-identifier hs-var">toLinkedComponents</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679724557"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId -&gt; FullUnitId
</span><a href="#local-6989586621679724496"><span class="hs-identifier hs-var">uid_lookup</span></a></span><span>
</span><span id="line-112"></span><span>                    </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
</span><a href="Distribution.Types.PackageDescription.html#package"><span class="hs-identifier hs-var hs-var">package</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Map ComponentId (OpenUnitId, ModuleShape)
</span><a href="#local-6989586621679724508"><span class="hs-identifier hs-var">shape_pkg_map</span></a></span><span> </span><span class="annot"><span class="annottext">[ConfiguredComponent]
</span><a href="#local-6989586621679724514"><span class="hs-identifier hs-var">graph1</span></a></span><span>
</span><span id="line-113"></span><span>
</span><span id="line-114"></span><span>    </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
</span><a href="Distribution.Utils.LogProgress.html#infoProgress"><span class="hs-identifier hs-var">infoProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ()) -&gt; Doc -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-115"></span><span>        </span><span class="annot"><span class="annottext">Doc -&gt; Int -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#hang"><span class="hs-identifier hs-var">hang</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;Linked component graph:&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-116"></span><span>             </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Doc] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#vcat"><span class="hs-identifier hs-var">vcat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(LinkedComponent -&gt; Doc) -&gt; [LinkedComponent] -&gt; [Doc]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">LinkedComponent -&gt; Doc
</span><a href="Distribution.Backpack.LinkedComponent.html#dispLinkedComponent"><span class="hs-identifier hs-var">dispLinkedComponent</span></a></span><span> </span><span class="annot"><span class="annottext">[LinkedComponent]
</span><a href="#local-6989586621679724485"><span class="hs-identifier hs-var">graph2</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-117"></span><span>
</span><span id="line-118"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679724478"><span class="annot"><span class="annottext">pid_map :: Map UnitId MungedPackageId
</span><a href="#local-6989586621679724478"><span class="hs-identifier hs-var hs-var">pid_map</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)] -&gt; Map UnitId MungedPackageId
forall k a. Ord k =&gt; [(k, a)] -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#fromList"><span class="hs-identifier hs-var">Map.fromList</span></a></span><span> </span><span class="annot"><span class="annottext">([(UnitId, MungedPackageId)] -&gt; Map UnitId MungedPackageId)
-&gt; [(UnitId, MungedPackageId)] -&gt; Map UnitId MungedPackageId
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-119"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PreExistingComponent -&gt; UnitId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_uid"><span class="hs-identifier hs-var hs-var">pc_uid</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724476"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; MungedPackageId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_munged_id"><span class="hs-identifier hs-var hs-var">pc_munged_id</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724476"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-120"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679724476"><span class="annot"><span class="annottext">PreExistingComponent
</span><a href="#local-6989586621679724476"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724550"><span class="hs-identifier hs-var">prePkgDeps</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
-&gt; [(UnitId, MungedPackageId)] -&gt; [(UnitId, MungedPackageId)]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span>
</span><span id="line-121"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; UnitId
</span><a href="Distribution.Types.InstalledPackageInfo.html#installedUnitId"><span class="hs-identifier hs-var hs-var">Installed.installedUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724473"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; MungedPackageId
forall pkg. HasMungedPackageId pkg =&gt; pkg -&gt; MungedPackageId
</span><a href="Distribution.Package.html#mungedId"><span class="hs-identifier hs-var">mungedId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724473"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-122"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModuleName
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Types.Module.html#Module"><span class="hs-identifier hs-type">Module</span></a></span><span> </span><span id="local-6989586621679724470"><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724470"><span class="hs-identifier hs-var">uid</span></a></span></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(ModuleName, Module)]
</span><a href="#local-6989586621679724548"><span class="hs-identifier hs-var">instantiate_with</span></a></span><span>
</span><span id="line-123"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679724473"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724473"><span class="hs-identifier hs-var">pkg</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; UnitId -&gt; Maybe InstalledPackageInfo
forall a. PackageIndex a -&gt; UnitId -&gt; Maybe a
</span><a href="Distribution.Simple.PackageIndex.html#lookupUnitId"><span class="hs-identifier hs-var">PackageIndex.lookupUnitId</span></a></span><span>
</span><span id="line-124"></span><span>                                </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724547"><span class="hs-identifier hs-var">installedPackageSet</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DefUnitId -&gt; UnitId
</span><a href="Distribution.Types.UnitId.html#unDefUnitId"><span class="hs-identifier hs-var hs-var">unDefUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724470"><span class="hs-identifier hs-var">uid</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-125"></span><span>        </span><span id="local-6989586621679724468"><span class="annot"><span class="annottext">subst :: Map ModuleName Module
</span><a href="#local-6989586621679724468"><span class="hs-identifier hs-var hs-var">subst</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(ModuleName, Module)] -&gt; Map ModuleName Module
forall k a. Ord k =&gt; [(k, a)] -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#fromList"><span class="hs-identifier hs-var">Map.fromList</span></a></span><span> </span><span class="annot"><span class="annottext">[(ModuleName, Module)]
</span><a href="#local-6989586621679724548"><span class="hs-identifier hs-var">instantiate_with</span></a></span><span>
</span><span id="line-126"></span><span>        </span><span id="local-6989586621679724467"><span class="annot"><span class="annottext">graph3 :: [ReadyComponent]
</span><a href="#local-6989586621679724467"><span class="hs-identifier hs-var hs-var">graph3</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Map UnitId MungedPackageId
-&gt; Map ModuleName Module -&gt; [LinkedComponent] -&gt; [ReadyComponent]
</span><a href="Distribution.Backpack.ReadyComponent.html#toReadyComponents"><span class="hs-identifier hs-var">toReadyComponents</span></a></span><span> </span><span class="annot"><span class="annottext">Map UnitId MungedPackageId
</span><a href="#local-6989586621679724478"><span class="hs-identifier hs-var">pid_map</span></a></span><span> </span><span class="annot"><span class="annottext">Map ModuleName Module
</span><a href="#local-6989586621679724468"><span class="hs-identifier hs-var">subst</span></a></span><span> </span><span class="annot"><span class="annottext">[LinkedComponent]
</span><a href="#local-6989586621679724485"><span class="hs-identifier hs-var">graph2</span></a></span><span>
</span><span id="line-127"></span><span>        </span><span id="local-6989586621679724462"><span class="annot"><span class="annottext">graph4 :: [ReadyComponent]
</span><a href="#local-6989586621679724462"><span class="hs-identifier hs-var hs-var">graph4</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Graph ReadyComponent -&gt; [ReadyComponent]
forall a. Graph a -&gt; [a]
</span><a href="Distribution.Compat.Graph.html#revTopSort"><span class="hs-identifier hs-var">Graph.revTopSort</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[ReadyComponent] -&gt; Graph ReadyComponent
forall a. (IsNode a, Show (Key a)) =&gt; [a] -&gt; Graph a
</span><a href="Distribution.Compat.Graph.html#fromDistinctList"><span class="hs-identifier hs-var">Graph.fromDistinctList</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724467"><span class="hs-identifier hs-var">graph3</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-128"></span><span>
</span><span id="line-129"></span><span>    </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
</span><a href="Distribution.Utils.LogProgress.html#infoProgress"><span class="hs-identifier hs-var">infoProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ()) -&gt; Doc -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Int -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#hang"><span class="hs-identifier hs-var">hang</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;Ready component graph:&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span>
</span><span id="line-130"></span><span>                        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Doc] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#vcat"><span class="hs-identifier hs-var">vcat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(ReadyComponent -&gt; Doc) -&gt; [ReadyComponent] -&gt; [Doc]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Doc
</span><a href="Distribution.Backpack.ReadyComponent.html#dispReadyComponent"><span class="hs-identifier hs-var">dispReadyComponent</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724462"><span class="hs-identifier hs-var">graph4</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-131"></span><span>
</span><span id="line-132"></span><span>    </span><span class="annot"><span class="annottext">Compiler
-&gt; InstalledPackageIndex
-&gt; PackageDescription
-&gt; [PreExistingComponent]
-&gt; [ReadyComponent]
-&gt; LogProgress ([ComponentLocalBuildInfo], InstalledPackageIndex)
</span><a href="Distribution.Backpack.Configure.html#toComponentLocalBuildInfos"><span class="hs-identifier hs-var">toComponentLocalBuildInfos</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724546"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724547"><span class="hs-identifier hs-var">installedPackageSet</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724551"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span> </span><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724550"><span class="hs-identifier hs-var">prePkgDeps</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724462"><span class="hs-identifier hs-var">graph4</span></a></span><span>
</span><span id="line-133"></span><span>
</span><span id="line-134"></span><span class="hs-comment">------------------------------------------------------------------------------</span><span>
</span><span id="line-135"></span><span class="hs-comment">-- ComponentLocalBuildInfo</span><span>
</span><span id="line-136"></span><span class="hs-comment">------------------------------------------------------------------------------</span><span>
</span><span id="line-137"></span><span>
</span><span id="line-138"></span><span class="annot"><a href="Distribution.Backpack.Configure.html#toComponentLocalBuildInfos"><span class="hs-identifier hs-type">toComponentLocalBuildInfos</span></a></span><span>
</span><span id="line-139"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span>
</span><span id="line-140"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html#InstalledPackageIndex"><span class="hs-identifier hs-type">InstalledPackageIndex</span></a></span><span> </span><span class="hs-comment">-- FULL set</span><span>
</span><span id="line-141"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Types.PackageDescription.html#PackageDescription"><span class="hs-identifier hs-type">PackageDescription</span></a></span><span>
</span><span id="line-142"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.PreExistingComponent.html#PreExistingComponent"><span class="hs-identifier hs-type">PreExistingComponent</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- external package deps</span><span>
</span><span id="line-143"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.ReadyComponent.html#ReadyComponent"><span class="hs-identifier hs-type">ReadyComponent</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-144"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Utils.LogProgress.html#LogProgress"><span class="hs-identifier hs-type">LogProgress</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-145"></span><span>                    </span><span class="annot"><a href="Distribution.Simple.PackageIndex.html#InstalledPackageIndex"><span class="hs-identifier hs-type">InstalledPackageIndex</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- only relevant packages</span><span>
</span><span id="line-146"></span><span id="toComponentLocalBuildInfos"><span class="annot"><span class="annottext">toComponentLocalBuildInfos :: Compiler
-&gt; InstalledPackageIndex
-&gt; PackageDescription
-&gt; [PreExistingComponent]
-&gt; [ReadyComponent]
-&gt; LogProgress ([ComponentLocalBuildInfo], InstalledPackageIndex)
</span><a href="Distribution.Backpack.Configure.html#toComponentLocalBuildInfos"><span class="hs-identifier hs-var hs-var">toComponentLocalBuildInfos</span></a></span></span><span>
</span><span id="line-147"></span><span>    </span><span id="local-6989586621679724457"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724457"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679724456"><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724456"><span class="hs-identifier hs-var">installedPackageSet</span></a></span></span><span> </span><span id="local-6989586621679724455"><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724455"><span class="hs-identifier hs-var">pkg_descr</span></a></span></span><span> </span><span id="local-6989586621679724454"><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724454"><span class="hs-identifier hs-var">externalPkgDeps</span></a></span></span><span> </span><span id="local-6989586621679724453"><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724453"><span class="hs-identifier hs-var">graph</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-148"></span><span>    </span><span class="hs-comment">-- Check and make sure that every instantiated component exists.</span><span>
</span><span id="line-149"></span><span>    </span><span class="hs-comment">-- We have to do this now, because prior to linking/instantiating</span><span>
</span><span id="line-150"></span><span>    </span><span class="hs-comment">-- we don't actually know what the full set of 'UnitId's we need</span><span>
</span><span id="line-151"></span><span>    </span><span class="hs-comment">-- are.</span><span>
</span><span id="line-152"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span class="hs-comment">-- TODO: This is actually a bit questionable performance-wise,</span><span>
</span><span id="line-153"></span><span>        </span><span class="hs-comment">-- since we will pay for the ALL installed packages even if</span><span>
</span><span id="line-154"></span><span>        </span><span class="hs-comment">-- they are not related to what we are building.  This was true</span><span>
</span><span id="line-155"></span><span>        </span><span class="hs-comment">-- in the old configure code.</span><span>
</span><span id="line-156"></span><span>        </span><span class="annot"><a href="#local-6989586621679724452"><span class="hs-identifier hs-type">external_graph</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Compat.Graph.html#Graph"><span class="hs-identifier hs-type">Graph</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Either.html#Either"><span class="hs-identifier hs-type">Either</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span> </span><span class="annot"><a href="Distribution.Backpack.ReadyComponent.html#ReadyComponent"><span class="hs-identifier hs-type">ReadyComponent</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-157"></span><span>        </span><span id="local-6989586621679724452"><span class="annot"><span class="annottext">external_graph :: Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724452"><span class="hs-identifier hs-var hs-var">external_graph</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a. (IsNode a, Show (Key a)) =&gt; [a] -&gt; Graph a
</span><a href="Distribution.Compat.Graph.html#fromDistinctList"><span class="hs-identifier hs-var">Graph.fromDistinctList</span></a></span><span>
</span><span id="line-158"></span><span>                       </span><span class="annot"><span class="annottext">([Either InstalledPackageInfo ReadyComponent]
 -&gt; Graph (Either InstalledPackageInfo ReadyComponent))
-&gt; ([InstalledPackageInfo]
    -&gt; [Either InstalledPackageInfo ReadyComponent])
-&gt; [InstalledPackageInfo]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(InstalledPackageInfo
 -&gt; Either InstalledPackageInfo ReadyComponent)
-&gt; [InstalledPackageInfo]
-&gt; [Either InstalledPackageInfo ReadyComponent]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; Either InstalledPackageInfo ReadyComponent
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span>
</span><span id="line-159"></span><span>                       </span><span class="annot"><span class="annottext">([InstalledPackageInfo]
 -&gt; Graph (Either InstalledPackageInfo ReadyComponent))
-&gt; [InstalledPackageInfo]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex -&gt; [InstalledPackageInfo]
forall a. PackageIndex a -&gt; [a]
</span><a href="Distribution.Simple.PackageIndex.html#allPackages"><span class="hs-identifier hs-var">PackageIndex.allPackages</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724456"><span class="hs-identifier hs-var">installedPackageSet</span></a></span><span>
</span><span id="line-160"></span><span>        </span><span class="annot"><a href="#local-6989586621679724449"><span class="hs-identifier hs-type">internal_graph</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Compat.Graph.html#Graph"><span class="hs-identifier hs-type">Graph</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Either.html#Either"><span class="hs-identifier hs-type">Either</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span> </span><span class="annot"><a href="Distribution.Backpack.ReadyComponent.html#ReadyComponent"><span class="hs-identifier hs-type">ReadyComponent</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-161"></span><span>        </span><span id="local-6989586621679724449"><span class="annot"><span class="annottext">internal_graph :: Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724449"><span class="hs-identifier hs-var hs-var">internal_graph</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a. (IsNode a, Show (Key a)) =&gt; [a] -&gt; Graph a
</span><a href="Distribution.Compat.Graph.html#fromDistinctList"><span class="hs-identifier hs-var">Graph.fromDistinctList</span></a></span><span>
</span><span id="line-162"></span><span>                       </span><span class="annot"><span class="annottext">([Either InstalledPackageInfo ReadyComponent]
 -&gt; Graph (Either InstalledPackageInfo ReadyComponent))
-&gt; ([ReadyComponent]
    -&gt; [Either InstalledPackageInfo ReadyComponent])
-&gt; [ReadyComponent]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(ReadyComponent -&gt; Either InstalledPackageInfo ReadyComponent)
-&gt; [ReadyComponent] -&gt; [Either InstalledPackageInfo ReadyComponent]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Either InstalledPackageInfo ReadyComponent
forall a b. b -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-var">Right</span></a></span><span>
</span><span id="line-163"></span><span>                       </span><span class="annot"><span class="annottext">([ReadyComponent]
 -&gt; Graph (Either InstalledPackageInfo ReadyComponent))
-&gt; [ReadyComponent]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724453"><span class="hs-identifier hs-var">graph</span></a></span><span>
</span><span id="line-164"></span><span>        </span><span id="local-6989586621679724443"><span class="annot"><span class="annottext">combined_graph :: Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724443"><span class="hs-identifier hs-var hs-var">combined_graph</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a. IsNode a =&gt; Graph a -&gt; Graph a -&gt; Graph a
</span><a href="Distribution.Compat.Graph.html#unionRight"><span class="hs-identifier hs-var">Graph.unionRight</span></a></span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724452"><span class="hs-identifier hs-var">external_graph</span></a></span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724449"><span class="hs-identifier hs-var">internal_graph</span></a></span><span>
</span><span id="line-165"></span><span>        </span><span id="local-6989586621679724438"><span class="annot"><span class="annottext">local_graph :: [Either InstalledPackageInfo ReadyComponent]
</span><a href="#local-6989586621679724438"><span class="hs-identifier hs-var hs-var">local_graph</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
-&gt; Maybe [Either InstalledPackageInfo ReadyComponent]
-&gt; [Either InstalledPackageInfo ReadyComponent]
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; [Either InstalledPackageInfo ReadyComponent]
forall a. HasCallStack =&gt; [Char] -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;toComponentLocalBuildInfos: closure returned Nothing&quot;</span></span><span class="hs-special">)</span><span>
</span><span id="line-166"></span><span>                    </span><span class="annot"><span class="annottext">(Maybe [Either InstalledPackageInfo ReadyComponent]
 -&gt; [Either InstalledPackageInfo ReadyComponent])
-&gt; Maybe [Either InstalledPackageInfo ReadyComponent]
-&gt; [Either InstalledPackageInfo ReadyComponent]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
-&gt; [Key (Either InstalledPackageInfo ReadyComponent)]
-&gt; Maybe [Either InstalledPackageInfo ReadyComponent]
forall a. Graph a -&gt; [Key a] -&gt; Maybe [a]
</span><a href="Distribution.Compat.Graph.html#closure"><span class="hs-identifier hs-var">Graph.closure</span></a></span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724443"><span class="hs-identifier hs-var">combined_graph</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(ReadyComponent -&gt; UnitId) -&gt; [ReadyComponent] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; UnitId
forall a. IsNode a =&gt; a -&gt; Key a
</span><a href="Distribution.Compat.Graph.html#nodeKey"><span class="hs-identifier hs-var">nodeKey</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724453"><span class="hs-identifier hs-var">graph</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-167"></span><span>        </span><span class="hs-comment">-- The database of transitively reachable installed packages that the</span><span>
</span><span id="line-168"></span><span>        </span><span class="hs-comment">-- external components the package (as a whole) depends on.  This will be</span><span>
</span><span id="line-169"></span><span>        </span><span class="hs-comment">-- used in several ways:</span><span>
</span><span id="line-170"></span><span>        </span><span class="hs-comment">--</span><span>
</span><span id="line-171"></span><span>        </span><span class="hs-comment">--      * We'll use it to do a consistency check so we're not depending</span><span>
</span><span id="line-172"></span><span>        </span><span class="hs-comment">--        on multiple versions of the same package (TODO: someday relax</span><span>
</span><span id="line-173"></span><span>        </span><span class="hs-comment">--        this for private dependencies.)  See right below.</span><span>
</span><span id="line-174"></span><span>        </span><span class="hs-comment">--</span><span>
</span><span id="line-175"></span><span>        </span><span class="hs-comment">--      * We'll pass it on in the LocalBuildInfo, where preprocessors</span><span>
</span><span id="line-176"></span><span>        </span><span class="hs-comment">--        and other things will incorrectly use it to determine what</span><span>
</span><span id="line-177"></span><span>        </span><span class="hs-comment">--        the include paths and everything should be.</span><span>
</span><span id="line-178"></span><span>        </span><span class="hs-comment">--</span><span>
</span><span id="line-179"></span><span>        </span><span id="local-6989586621679724434"><span class="annot"><span class="annottext">packageDependsIndex :: InstalledPackageIndex
</span><a href="#local-6989586621679724434"><span class="hs-identifier hs-var hs-var">packageDependsIndex</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[InstalledPackageInfo] -&gt; InstalledPackageIndex
</span><a href="Distribution.Simple.PackageIndex.html#fromList"><span class="hs-identifier hs-var">PackageIndex.fromList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
-&gt; [InstalledPackageInfo]
forall a b. [Either a b] -&gt; [a]
</span><a href="../../base/src/Data.Either.html#lefts"><span class="hs-identifier hs-var">lefts</span></a></span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
</span><a href="#local-6989586621679724438"><span class="hs-identifier hs-var">local_graph</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-180"></span><span>        </span><span id="local-6989586621679724425"><span class="annot"><span class="annottext">fullIndex :: Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724425"><span class="hs-identifier hs-var hs-var">fullIndex</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
-&gt; Graph (Either InstalledPackageInfo ReadyComponent)
forall a. (IsNode a, Show (Key a)) =&gt; [a] -&gt; Graph a
</span><a href="Distribution.Compat.Graph.html#fromDistinctList"><span class="hs-identifier hs-var">Graph.fromDistinctList</span></a></span><span> </span><span class="annot"><span class="annottext">[Either InstalledPackageInfo ReadyComponent]
</span><a href="#local-6989586621679724438"><span class="hs-identifier hs-var">local_graph</span></a></span><span>
</span><span id="line-181"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
-&gt; [(Either InstalledPackageInfo ReadyComponent,
     [Key (Either InstalledPackageInfo ReadyComponent)])]
forall a. Graph a -&gt; [(a, [Key a])]
</span><a href="Distribution.Compat.Graph.html#broken"><span class="hs-identifier hs-var">Graph.broken</span></a></span><span> </span><span class="annot"><span class="annottext">Graph (Either InstalledPackageInfo ReadyComponent)
</span><a href="#local-6989586621679724425"><span class="hs-identifier hs-var">fullIndex</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-182"></span><span>        </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">() -&gt; LogProgress ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-183"></span><span>        </span><span id="local-6989586621679724423"><span class="annot"><span class="annottext">[(Either InstalledPackageInfo ReadyComponent,
  [Key (Either InstalledPackageInfo ReadyComponent)])]
</span><a href="#local-6989586621679724423"><span class="hs-identifier hs-var">broken</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-184"></span><span>          </span><span class="hs-comment">-- TODO: ppr this</span><span>
</span><span id="line-185"></span><span>          </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
forall a. Doc -&gt; LogProgress a
</span><a href="Distribution.Utils.LogProgress.html#dieProgress"><span class="hs-identifier hs-var">dieProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ())
-&gt; ([Char] -&gt; Doc) -&gt; [Char] -&gt; LogProgress ()
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">([Char] -&gt; LogProgress ()) -&gt; [Char] -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-186"></span><span>                </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;The following packages are broken because other&quot;</span></span><span>
</span><span id="line-187"></span><span>             </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot; packages they depend on are missing. These broken &quot;</span></span><span>
</span><span id="line-188"></span><span>             </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;packages must be rebuilt before they can be used.\n&quot;</span></span><span>
</span><span id="line-189"></span><span>             </span><span class="hs-comment">-- TODO: Undupe.</span><span>
</span><span id="line-190"></span><span>             </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; [Char]
</span><a href="../../base/src/Data.OldList.html#unlines"><span class="hs-identifier hs-var">unlines</span></a></span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;installed package &quot;</span></span><span>
</span><span id="line-191"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; [Char]
forall a. Pretty a =&gt; a -&gt; [Char]
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724421"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-192"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot; is broken due to missing package &quot;</span></span><span>
</span><span id="line-193"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [[Char]] -&gt; [Char]
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;, &quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(UnitId -&gt; [Char]) -&gt; [UnitId] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; [Char]
forall a. Pretty a =&gt; a -&gt; [Char]
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724419"><span class="hs-identifier hs-var">deps</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-194"></span><span>                        </span><span class="hs-glyph">|</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679724421"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724421"><span class="hs-identifier hs-var">pkg</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724419"><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724419"><span class="hs-identifier hs-var">deps</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Either InstalledPackageInfo ReadyComponent,
  [Key (Either InstalledPackageInfo ReadyComponent)])]
[(Either InstalledPackageInfo ReadyComponent, [UnitId])]
</span><a href="#local-6989586621679724423"><span class="hs-identifier hs-var">broken</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-195"></span><span>             </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[[Char]] -&gt; [Char]
</span><a href="../../base/src/Data.OldList.html#unlines"><span class="hs-identifier hs-var">unlines</span></a></span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;planned package &quot;</span></span><span>
</span><span id="line-196"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; [Char]
forall a. Pretty a =&gt; a -&gt; [Char]
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ReadyComponent -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724418"><span class="hs-identifier hs-var">pkg</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-197"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot; is broken due to missing package &quot;</span></span><span>
</span><span id="line-198"></span><span>                       </span><span class="annot"><span class="annottext">[Char] -&gt; [Char] -&gt; [Char]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; [[Char]] -&gt; [Char]
forall a. [a] -&gt; [[a]] -&gt; [a]
</span><a href="../../base/src/Data.OldList.html#intercalate"><span class="hs-identifier hs-var">intercalate</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;, &quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(UnitId -&gt; [Char]) -&gt; [UnitId] -&gt; [[Char]]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; [Char]
forall a. Pretty a =&gt; a -&gt; [Char]
</span><a href="Distribution.Pretty.html#prettyShow"><span class="hs-identifier hs-var">prettyShow</span></a></span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724417"><span class="hs-identifier hs-var">deps</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-199"></span><span>                        </span><span class="hs-glyph">|</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679724418"><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724418"><span class="hs-identifier hs-var">pkg</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724417"><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724417"><span class="hs-identifier hs-var">deps</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(Either InstalledPackageInfo ReadyComponent,
  [Key (Either InstalledPackageInfo ReadyComponent)])]
[(Either InstalledPackageInfo ReadyComponent, [UnitId])]
</span><a href="#local-6989586621679724423"><span class="hs-identifier hs-var">broken</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-200"></span><span>
</span><span id="line-201"></span><span>    </span><span class="hs-comment">-- In this section, we'd like to look at the 'packageDependsIndex'</span><span>
</span><span id="line-202"></span><span>    </span><span class="hs-comment">-- and see if we've picked multiple versions of the same</span><span>
</span><span id="line-203"></span><span>    </span><span class="hs-comment">-- installed package (this is bad, because it means you might</span><span>
</span><span id="line-204"></span><span>    </span><span class="hs-comment">-- get an error could not match foo-0.1:Type with foo-0.2:Type).</span><span>
</span><span id="line-205"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-206"></span><span>    </span><span class="hs-comment">-- What is pseudoTopPkg for? I have no idea.  It was used</span><span>
</span><span id="line-207"></span><span>    </span><span class="hs-comment">-- in the very original commit which introduced checking for</span><span>
</span><span id="line-208"></span><span>    </span><span class="hs-comment">-- inconsistencies 5115bb2be4e13841ea07dc9166b9d9afa5f0d012,</span><span>
</span><span id="line-209"></span><span>    </span><span class="hs-comment">-- and then moved out of PackageIndex and put here later.</span><span>
</span><span id="line-210"></span><span>    </span><span class="hs-comment">-- TODO: Try this code without it...</span><span>
</span><span id="line-211"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-212"></span><span>    </span><span class="hs-comment">-- TODO: Move this into a helper function</span><span>
</span><span id="line-213"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-214"></span><span>    </span><span class="hs-comment">-- TODO: This is probably wrong for Backpack</span><span>
</span><span id="line-215"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span class="annot"><a href="#local-6989586621679724416"><span class="hs-identifier hs-type">pseudoTopPkg</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Types.InstalledPackageInfo.html#InstalledPackageInfo"><span class="hs-identifier hs-type">InstalledPackageInfo</span></a></span><span>
</span><span id="line-216"></span><span>        </span><span id="local-6989586621679724416"><span class="annot"><span class="annottext">pseudoTopPkg :: InstalledPackageInfo
</span><a href="#local-6989586621679724416"><span class="hs-identifier hs-var hs-var">pseudoTopPkg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="Distribution.Types.InstalledPackageInfo.html#emptyInstalledPackageInfo"><span class="hs-identifier hs-var">emptyInstalledPackageInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-217"></span><span>            </span><span class="annot"><span class="annottext">installedUnitId :: UnitId
</span><a href="Distribution.Types.InstalledPackageInfo.html#installedUnitId"><span class="hs-identifier hs-var">Installed.installedUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageIdentifier -&gt; UnitId
</span><a href="Distribution.Types.UnitId.html#mkLegacyUnitId"><span class="hs-identifier hs-var">mkLegacyUnitId</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724455"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-218"></span><span>            </span><span class="annot"><span class="annottext">sourcePackageId :: PackageIdentifier
</span><a href="Distribution.Types.InstalledPackageInfo.html#sourcePackageId"><span class="hs-identifier hs-var">Installed.sourcePackageId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageDescription -&gt; PackageIdentifier
forall pkg. Package pkg =&gt; pkg -&gt; PackageIdentifier
</span><a href="Distribution.Package.html#packageId"><span class="hs-identifier hs-var">packageId</span></a></span><span> </span><span class="annot"><span class="annottext">PackageDescription
</span><a href="#local-6989586621679724455"><span class="hs-identifier hs-var">pkg_descr</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-219"></span><span>            </span><span class="annot"><span class="annottext">depends :: [UnitId]
</span><a href="Distribution.Types.InstalledPackageInfo.html#depends"><span class="hs-identifier hs-var">Installed.depends</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(PreExistingComponent -&gt; UnitId)
-&gt; [PreExistingComponent] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">PreExistingComponent -&gt; UnitId
</span><a href="Distribution.Backpack.PreExistingComponent.html#pc_uid"><span class="hs-identifier hs-var hs-var">pc_uid</span></a></span><span> </span><span class="annot"><span class="annottext">[PreExistingComponent]
</span><a href="#local-6989586621679724454"><span class="hs-identifier hs-var">externalPkgDeps</span></a></span><span>
</span><span id="line-220"></span><span>          </span><span class="hs-special">}</span><span>
</span><span id="line-221"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
-&gt; [(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])]
</span><a href="Distribution.Simple.PackageIndex.html#dependencyInconsistencies"><span class="hs-identifier hs-var">PackageIndex.dependencyInconsistencies</span></a></span><span>
</span><span id="line-222"></span><span>       </span><span class="annot"><span class="annottext">(InstalledPackageIndex
 -&gt; [(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])])
-&gt; (InstalledPackageIndex -&gt; InstalledPackageIndex)
-&gt; InstalledPackageIndex
-&gt; [(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
-&gt; InstalledPackageIndex -&gt; InstalledPackageIndex
</span><a href="Distribution.Simple.PackageIndex.html#insert"><span class="hs-identifier hs-var">PackageIndex.insert</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724416"><span class="hs-identifier hs-var">pseudoTopPkg</span></a></span><span>
</span><span id="line-223"></span><span>       </span><span class="annot"><span class="annottext">(InstalledPackageIndex
 -&gt; [(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])])
-&gt; InstalledPackageIndex
-&gt; [(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724434"><span class="hs-identifier hs-var">packageDependsIndex</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-224"></span><span>      </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">() -&gt; LogProgress ()
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-225"></span><span>      </span><span id="local-6989586621679724410"><span class="annot"><span class="annottext">[(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])]
</span><a href="#local-6989586621679724410"><span class="hs-identifier hs-var">inconsistencies</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-226"></span><span>        </span><span class="annot"><span class="annottext">Doc -&gt; LogProgress ()
</span><a href="Distribution.Utils.LogProgress.html#warnProgress"><span class="hs-identifier hs-var">warnProgress</span></a></span><span> </span><span class="annot"><span class="annottext">(Doc -&gt; LogProgress ()) -&gt; Doc -&gt; LogProgress ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-227"></span><span>          </span><span class="annot"><span class="annottext">Doc -&gt; Int -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#hang"><span class="hs-identifier hs-var">hang</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;This package indirectly depends on multiple versions of the same&quot;</span></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span>
</span><span id="line-228"></span><span>                </span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;package. This is very likely to cause a compile failure.&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span>
</span><span id="line-229"></span><span>               </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Doc] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#vcat"><span class="hs-identifier hs-var">vcat</span></a></span><span> </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;package&quot;</span></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">PackageName -&gt; Doc
forall a. Pretty a =&gt; a -&gt; Doc
</span><a href="Distribution.Pretty.html#pretty"><span class="hs-identifier hs-var">pretty</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; PackageName
forall pkg. Package pkg =&gt; pkg -&gt; PackageName
</span><a href="Distribution.Package.html#packageName"><span class="hs-identifier hs-var">packageName</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724405"><span class="hs-identifier hs-var">user</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span>
</span><span id="line-230"></span><span>                       </span><span class="annot"><span class="annottext">Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#parens"><span class="hs-identifier hs-var">parens</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">UnitId -&gt; Doc
forall a. Pretty a =&gt; a -&gt; Doc
</span><a href="Distribution.Pretty.html#pretty"><span class="hs-identifier hs-var">pretty</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstalledPackageInfo -&gt; UnitId
forall pkg. HasUnitId pkg =&gt; pkg -&gt; UnitId
</span><a href="Distribution.Package.html#installedUnitId"><span class="hs-identifier hs-var">installedUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724405"><span class="hs-identifier hs-var">user</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;requires&quot;</span></span><span> </span><span class="annot"><span class="annottext">Doc -&gt; Doc -&gt; Doc
</span><a href="../../pretty/src/Text.PrettyPrint.HughesPJ.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span>
</span><span id="line-231"></span><span>                       </span><span class="annot"><span class="annottext">UnitId -&gt; Doc
forall a. Pretty a =&gt; a -&gt; Doc
</span><a href="Distribution.Pretty.html#pretty"><span class="hs-identifier hs-var">pretty</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724402"><span class="hs-identifier hs-var">inst</span></a></span><span>
</span><span id="line-232"></span><span>                     </span><span class="hs-glyph">|</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679724401"><span class="annot"><span class="annottext">DepUniqueKey
</span><a href="#local-6989586621679724401"><span class="hs-identifier hs-var">_dep_key</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724400"><span class="annot"><span class="annottext">[(UnitId, [InstalledPackageInfo])]
</span><a href="#local-6989586621679724400"><span class="hs-identifier hs-var">insts</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(DepUniqueKey, [(UnitId, [InstalledPackageInfo])])]
</span><a href="#local-6989586621679724410"><span class="hs-identifier hs-var">inconsistencies</span></a></span><span>
</span><span id="line-233"></span><span>                     </span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679724402"><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724402"><span class="hs-identifier hs-var">inst</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724399"><span class="annot"><span class="annottext">[InstalledPackageInfo]
</span><a href="#local-6989586621679724399"><span class="hs-identifier hs-var">users</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[(UnitId, [InstalledPackageInfo])]
</span><a href="#local-6989586621679724400"><span class="hs-identifier hs-var">insts</span></a></span><span>
</span><span id="line-234"></span><span>                     </span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724405"><span class="annot"><span class="annottext">InstalledPackageInfo
</span><a href="#local-6989586621679724405"><span class="hs-identifier hs-var">user</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">[InstalledPackageInfo]
</span><a href="#local-6989586621679724399"><span class="hs-identifier hs-var">users</span></a></span><span> </span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-235"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679724398"><span class="annot"><span class="annottext">clbis :: [ComponentLocalBuildInfo]
</span><a href="#local-6989586621679724398"><span class="hs-identifier hs-var hs-var">clbis</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Compiler -&gt; [ReadyComponent] -&gt; [ComponentLocalBuildInfo]
</span><a href="Distribution.Backpack.Configure.html#mkLinkedComponentsLocalBuildInfo"><span class="hs-identifier hs-var">mkLinkedComponentsLocalBuildInfo</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724457"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724453"><span class="hs-identifier hs-var">graph</span></a></span><span>
</span><span id="line-236"></span><span>    </span><span class="hs-comment">-- forM clbis $ \(clbi,deps) -&gt; info verbosity $ &quot;UNIT&quot; ++ hashUnitId (componentUnitId clbi) ++ &quot;\n&quot; ++ intercalate &quot;\n&quot; (map hashUnitId deps)</span><span>
</span><span id="line-237"></span><span>    </span><span class="annot"><span class="annottext">([ComponentLocalBuildInfo], InstalledPackageIndex)
-&gt; LogProgress ([ComponentLocalBuildInfo], InstalledPackageIndex)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[ComponentLocalBuildInfo]
</span><a href="#local-6989586621679724398"><span class="hs-identifier hs-var">clbis</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">InstalledPackageIndex
</span><a href="#local-6989586621679724434"><span class="hs-identifier hs-var">packageDependsIndex</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-238"></span><span>
</span><span id="line-239"></span><span class="hs-comment">-- Build ComponentLocalBuildInfo for each component we are going</span><span>
</span><span id="line-240"></span><span class="hs-comment">-- to build.</span><span>
</span><span id="line-241"></span><span class="hs-comment">--</span><span>
</span><span id="line-242"></span><span class="hs-comment">-- This conversion is lossy; we lose some invariants from ReadyComponent</span><span>
</span><span id="line-243"></span><span class="annot"><a href="Distribution.Backpack.Configure.html#mkLinkedComponentsLocalBuildInfo"><span class="hs-identifier hs-type">mkLinkedComponentsLocalBuildInfo</span></a></span><span>
</span><span id="line-244"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Simple.Compiler.html#Compiler"><span class="hs-identifier hs-type">Compiler</span></a></span><span>
</span><span id="line-245"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Backpack.ReadyComponent.html#ReadyComponent"><span class="hs-identifier hs-type">ReadyComponent</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-246"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Types.ComponentLocalBuildInfo.html#ComponentLocalBuildInfo"><span class="hs-identifier hs-type">ComponentLocalBuildInfo</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-247"></span><span id="mkLinkedComponentsLocalBuildInfo"><span class="annot"><span class="annottext">mkLinkedComponentsLocalBuildInfo :: Compiler -&gt; [ReadyComponent] -&gt; [ComponentLocalBuildInfo]
</span><a href="Distribution.Backpack.Configure.html#mkLinkedComponentsLocalBuildInfo"><span class="hs-identifier hs-var hs-var">mkLinkedComponentsLocalBuildInfo</span></a></span></span><span> </span><span id="local-6989586621679724396"><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724396"><span class="hs-identifier hs-var">comp</span></a></span></span><span> </span><span id="local-6989586621679724395"><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724395"><span class="hs-identifier hs-var">rcs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(ReadyComponent -&gt; ComponentLocalBuildInfo)
-&gt; [ReadyComponent] -&gt; [ComponentLocalBuildInfo]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; ComponentLocalBuildInfo
</span><a href="#local-6989586621679724394"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724395"><span class="hs-identifier hs-var">rcs</span></a></span><span>
</span><span id="line-248"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-249"></span><span>    </span><span id="local-6989586621679724392"><span class="annot"><span class="annottext">internalUnits :: Set UnitId
</span><a href="#local-6989586621679724392"><span class="hs-identifier hs-var hs-var">internalUnits</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId] -&gt; Set UnitId
forall a. Ord a =&gt; [a] -&gt; Set a
</span><a href="../../containers/src/Data.Set.Internal.html#fromList"><span class="hs-identifier hs-var">Set.fromList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(ReadyComponent -&gt; UnitId) -&gt; [ReadyComponent] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; UnitId
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_uid"><span class="hs-identifier hs-var">rc_uid</span></a></span><span> </span><span class="annot"><span class="annottext">[ReadyComponent]
</span><a href="#local-6989586621679724395"><span class="hs-identifier hs-var">rcs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-250"></span><span>    </span><span id="local-6989586621679724388"><span class="annot"><span class="annottext">isInternal :: UnitId -&gt; Bool
</span><a href="#local-6989586621679724388"><span class="hs-identifier hs-var hs-var">isInternal</span></a></span></span><span> </span><span id="local-6989586621679724387"><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724387"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; Set UnitId -&gt; Bool
forall a. Ord a =&gt; a -&gt; Set a -&gt; Bool
</span><a href="../../containers/src/Data.Set.Internal.html#member"><span class="hs-identifier hs-var">Set.member</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724387"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Set UnitId
</span><a href="#local-6989586621679724392"><span class="hs-identifier hs-var">internalUnits</span></a></span><span>
</span><span id="line-251"></span><span>    </span><span id="local-6989586621679724394"><span class="annot"><span class="annottext">go :: ReadyComponent -&gt; ComponentLocalBuildInfo
</span><a href="#local-6989586621679724394"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span id="local-6989586621679724385"><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-252"></span><span>      </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Component
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_component"><span class="hs-identifier hs-var hs-var">rc_component</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-253"></span><span>      </span><span class="annot"><a href="Distribution.Types.Component.html#CLib"><span class="hs-identifier hs-type">CLib</span></a></span><span> </span><span id="local-6989586621679724382"><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679724382"><span class="hs-identifier hs-var">lib</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-254"></span><span>        </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679724377"><span class="annot"><span class="annottext">convModuleExport :: (ModuleName, Module) -&gt; ExposedModule
</span><a href="#local-6989586621679724377"><span class="hs-identifier hs-var hs-var">convModuleExport</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679724376"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724376"><span class="hs-identifier hs-var">modname'</span></a></span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Types.Module.html#Module"><span class="hs-identifier hs-type">Module</span></a></span><span> </span><span id="local-6989586621679724375"><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724375"><span class="hs-identifier hs-var">uid</span></a></span></span><span> </span><span id="local-6989586621679724374"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724374"><span class="hs-identifier hs-var">modname</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-255"></span><span>              </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; UnitId -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">DefUnitId -&gt; UnitId
</span><a href="Distribution.Types.UnitId.html#unDefUnitId"><span class="hs-identifier hs-var hs-var">unDefUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724375"><span class="hs-identifier hs-var">uid</span></a></span><span>
</span><span id="line-256"></span><span>              </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724376"><span class="hs-identifier hs-var">modname'</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; ModuleName -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724374"><span class="hs-identifier hs-var">modname</span></a></span><span>
</span><span id="line-257"></span><span>              </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; Maybe OpenModule -&gt; ExposedModule
</span><a href="Distribution.Types.ExposedModule.html#ExposedModule"><span class="hs-identifier hs-var">Installed.ExposedModule</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724376"><span class="hs-identifier hs-var">modname'</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe OpenModule
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-258"></span><span>              </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>
</span><span id="line-259"></span><span>              </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; Maybe OpenModule -&gt; ExposedModule
</span><a href="Distribution.Types.ExposedModule.html#ExposedModule"><span class="hs-identifier hs-var">Installed.ExposedModule</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724376"><span class="hs-identifier hs-var">modname'</span></a></span><span>
</span><span id="line-260"></span><span>                  </span><span class="hs-special">(</span><span class="annot"><span class="annottext">OpenModule -&gt; Maybe OpenModule
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">OpenUnitId -&gt; ModuleName -&gt; OpenModule
</span><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier hs-var">OpenModule</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DefUnitId -&gt; OpenUnitId
</span><a href="Distribution.Backpack.html#DefiniteUnitId"><span class="hs-identifier hs-var">DefiniteUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724375"><span class="hs-identifier hs-var">uid</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724374"><span class="hs-identifier hs-var">modname</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-261"></span><span>            </span><span id="local-6989586621679724364"><span class="annot"><span class="annottext">convOpenModuleExport :: (ModuleName, OpenModule) -&gt; ExposedModule
</span><a href="#local-6989586621679724364"><span class="hs-identifier hs-var hs-var">convOpenModuleExport</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679724363"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724363"><span class="hs-identifier hs-var">modname'</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679724362"><span class="annot"><span class="annottext">modu :: OpenModule
</span><a href="#local-6989586621679724362"><span class="hs-identifier hs-var">modu</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier hs-type">OpenModule</span></a></span><span> </span><span id="local-6989586621679724361"><span class="annot"><span class="annottext">OpenUnitId
</span><a href="#local-6989586621679724361"><span class="hs-identifier hs-var">uid</span></a></span></span><span> </span><span id="local-6989586621679724360"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724360"><span class="hs-identifier hs-var">modname</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-262"></span><span>              </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">OpenUnitId
</span><a href="#local-6989586621679724361"><span class="hs-identifier hs-var">uid</span></a></span><span> </span><span class="annot"><span class="annottext">OpenUnitId -&gt; OpenUnitId -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">OpenUnitId
</span><a href="#local-6989586621679724359"><span class="hs-identifier hs-var">this_open_uid</span></a></span><span>
</span><span id="line-263"></span><span>              </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724363"><span class="hs-identifier hs-var">modname'</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; ModuleName -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724360"><span class="hs-identifier hs-var">modname</span></a></span><span>
</span><span id="line-264"></span><span>              </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; Maybe OpenModule -&gt; ExposedModule
</span><a href="Distribution.Types.ExposedModule.html#ExposedModule"><span class="hs-identifier hs-var">Installed.ExposedModule</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724363"><span class="hs-identifier hs-var">modname'</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe OpenModule
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-265"></span><span>              </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>
</span><span id="line-266"></span><span>              </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; Maybe OpenModule -&gt; ExposedModule
</span><a href="Distribution.Types.ExposedModule.html#ExposedModule"><span class="hs-identifier hs-var">Installed.ExposedModule</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724363"><span class="hs-identifier hs-var">modname'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">OpenModule -&gt; Maybe OpenModule
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">OpenModule
</span><a href="#local-6989586621679724362"><span class="hs-identifier hs-var">modu</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-267"></span><span>            </span><span class="annot"><a href="#local-6989586621679724364"><span class="hs-identifier hs-var">convOpenModuleExport</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModuleName
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Backpack.html#OpenModuleVar"><span class="hs-identifier hs-type">OpenModuleVar</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
</span><span id="line-268"></span><span>                </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -&gt; ExposedModule
forall a. HasCallStack =&gt; [Char] -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">[Char]
</span><span class="hs-string">&quot;convOpenModuleExport: top-level modvar&quot;</span></span><span>
</span><span id="line-269"></span><span>            </span><span id="local-6989586621679724357"><span class="annot"><span class="annottext">exports :: [ExposedModule]
</span><a href="#local-6989586621679724357"><span class="hs-identifier hs-var hs-var">exports</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-270"></span><span>                </span><span class="hs-comment">-- Loses invariants</span><span>
</span><span id="line-271"></span><span>                </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Either IndefiniteComponent InstantiatedComponent
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_i"><span class="hs-identifier hs-var hs-var">rc_i</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-272"></span><span>                    </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679724355"><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724355"><span class="hs-identifier hs-var">indefc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">((ModuleName, OpenModule) -&gt; ExposedModule)
-&gt; [(ModuleName, OpenModule)] -&gt; [ExposedModule]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(ModuleName, OpenModule) -&gt; ExposedModule
</span><a href="#local-6989586621679724364"><span class="hs-identifier hs-var">convOpenModuleExport</span></a></span><span>
</span><span id="line-273"></span><span>                                 </span><span class="annot"><span class="annottext">([(ModuleName, OpenModule)] -&gt; [ExposedModule])
-&gt; [(ModuleName, OpenModule)] -&gt; [ExposedModule]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">OpenModuleSubst -&gt; [(ModuleName, OpenModule)]
forall k a. Map k a -&gt; [(k, a)]
</span><a href="../../containers/src/Data.Map.Internal.html#toList"><span class="hs-identifier hs-var">Map.toList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IndefiniteComponent -&gt; OpenModuleSubst
</span><a href="Distribution.Backpack.ReadyComponent.html#indefc_provides"><span class="hs-identifier hs-var hs-var">indefc_provides</span></a></span><span> </span><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724355"><span class="hs-identifier hs-var">indefc</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-274"></span><span>                    </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679724352"><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724352"><span class="hs-identifier hs-var">instc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">((ModuleName, Module) -&gt; ExposedModule)
-&gt; [(ModuleName, Module)] -&gt; [ExposedModule]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">(ModuleName, Module) -&gt; ExposedModule
</span><a href="#local-6989586621679724377"><span class="hs-identifier hs-var">convModuleExport</span></a></span><span>
</span><span id="line-275"></span><span>                                 </span><span class="annot"><span class="annottext">([(ModuleName, Module)] -&gt; [ExposedModule])
-&gt; [(ModuleName, Module)] -&gt; [ExposedModule]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Map ModuleName Module -&gt; [(ModuleName, Module)]
forall k a. Map k a -&gt; [(k, a)]
</span><a href="../../containers/src/Data.Map.Internal.html#toList"><span class="hs-identifier hs-var">Map.toList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstantiatedComponent -&gt; Map ModuleName Module
</span><a href="Distribution.Backpack.ReadyComponent.html#instc_provides"><span class="hs-identifier hs-var hs-var">instc_provides</span></a></span><span> </span><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724352"><span class="hs-identifier hs-var">instc</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-276"></span><span>            </span><span id="local-6989586621679724350"><span class="annot"><span class="annottext">insts :: [(ModuleName, OpenModule)]
</span><a href="#local-6989586621679724350"><span class="hs-identifier hs-var hs-var">insts</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-277"></span><span>                </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Either IndefiniteComponent InstantiatedComponent
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_i"><span class="hs-identifier hs-var hs-var">rc_i</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-278"></span><span>                    </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679724349"><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724349"><span class="hs-identifier hs-var">indefc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724348"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ModuleName -&gt; OpenModule
</span><a href="Distribution.Backpack.html#OpenModuleVar"><span class="hs-identifier hs-var">OpenModuleVar</span></a></span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724348"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679724348"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724348"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">IndefiniteComponent -&gt; [ModuleName]
</span><a href="Distribution.Backpack.ReadyComponent.html#indefc_requires"><span class="hs-identifier hs-var hs-var">indefc_requires</span></a></span><span> </span><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724349"><span class="hs-identifier hs-var">indefc</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-279"></span><span>                    </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679724346"><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724346"><span class="hs-identifier hs-var">instc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724345"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">OpenUnitId -&gt; ModuleName -&gt; OpenModule
</span><a href="Distribution.Backpack.html#OpenModule"><span class="hs-identifier hs-var">OpenModule</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">DefUnitId -&gt; OpenUnitId
</span><a href="Distribution.Backpack.html#DefiniteUnitId"><span class="hs-identifier hs-var">DefiniteUnitId</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724344"><span class="hs-identifier hs-var">uid'</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724343"><span class="hs-identifier hs-var">m'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-280"></span><span>                                   </span><span class="hs-glyph">|</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679724345"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724345"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Types.Module.html#Module"><span class="hs-identifier hs-type">Module</span></a></span><span> </span><span id="local-6989586621679724344"><span class="annot"><span class="annottext">DefUnitId
</span><a href="#local-6989586621679724344"><span class="hs-identifier hs-var">uid'</span></a></span></span><span> </span><span id="local-6989586621679724343"><span class="annot"><span class="annottext">ModuleName
</span><a href="#local-6989586621679724343"><span class="hs-identifier hs-var">m'</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">InstantiatedComponent -&gt; [(ModuleName, Module)]
</span><a href="Distribution.Backpack.ReadyComponent.html#instc_insts"><span class="hs-identifier hs-var hs-var">instc_insts</span></a></span><span> </span><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724346"><span class="hs-identifier hs-var">instc</span></a></span><span> </span><span class="hs-special">]</span><span>
</span><span id="line-281"></span><span>
</span><span id="line-282"></span><span>            </span><span id="local-6989586621679724340"><span class="annot"><span class="annottext">compat_name :: MungedPackageName
</span><a href="#local-6989586621679724340"><span class="hs-identifier hs-var hs-var">compat_name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PackageName -&gt; LibraryName -&gt; MungedPackageName
</span><a href="Distribution.Types.MungedPackageName.html#MungedPackageName"><span class="hs-identifier hs-var">MungedPackageName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ReadyComponent -&gt; PackageName
forall pkg. Package pkg =&gt; pkg -&gt; PackageName
</span><a href="Distribution.Package.html#packageName"><span class="hs-identifier hs-var">packageName</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Library -&gt; LibraryName
</span><a href="Distribution.Types.Library.html#libName"><span class="hs-identifier hs-var hs-var">libName</span></a></span><span> </span><span class="annot"><span class="annottext">Library
</span><a href="#local-6989586621679724382"><span class="hs-identifier hs-var">lib</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-283"></span><span>            </span><span id="local-6989586621679724336"><span class="annot"><span class="annottext">compat_key :: [Char]
</span><a href="#local-6989586621679724336"><span class="hs-identifier hs-var hs-var">compat_key</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Compiler -&gt; MungedPackageName -&gt; Version -&gt; UnitId -&gt; [Char]
</span><a href="Distribution.Backpack.Id.html#computeCompatPackageKey"><span class="hs-identifier hs-var">computeCompatPackageKey</span></a></span><span> </span><span class="annot"><span class="annottext">Compiler
</span><a href="#local-6989586621679724396"><span class="hs-identifier hs-var">comp</span></a></span><span> </span><span class="annot"><span class="annottext">MungedPackageName
</span><a href="#local-6989586621679724340"><span class="hs-identifier hs-var">compat_name</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ReadyComponent -&gt; Version
forall pkg. Package pkg =&gt; pkg -&gt; Version
</span><a href="Distribution.Package.html#packageVersion"><span class="hs-identifier hs-var">packageVersion</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span>
</span><span id="line-284"></span><span>
</span><span id="line-285"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">LibComponentLocalBuildInfo :: ComponentName
-&gt; ComponentId
-&gt; UnitId
-&gt; Bool
-&gt; [(ModuleName, OpenModule)]
-&gt; [(UnitId, MungedPackageId)]
-&gt; [(OpenUnitId, ModuleRenaming)]
-&gt; [UnitId]
-&gt; [UnitId]
-&gt; [Char]
-&gt; MungedPackageName
-&gt; [ExposedModule]
-&gt; Bool
-&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#LibComponentLocalBuildInfo"><span class="hs-identifier hs-type">LibComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-286"></span><span>          </span><span class="annot"><span class="annottext">componentPackageDeps :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724332"><span class="hs-identifier hs-var">componentPackageDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var">cpds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-287"></span><span>          </span><span class="annot"><span class="annottext">componentUnitId :: UnitId
</span><a href="#local-6989586621679724330"><span class="hs-identifier hs-var">componentUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-288"></span><span>          </span><span class="annot"><span class="annottext">componentComponentId :: ComponentId
</span><a href="#local-6989586621679724329"><span class="hs-identifier hs-var">componentComponentId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var">this_cid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-289"></span><span>          </span><span class="annot"><span class="annottext">componentInstantiatedWith :: [(ModuleName, OpenModule)]
</span><a href="#local-6989586621679724327"><span class="hs-identifier hs-var">componentInstantiatedWith</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(ModuleName, OpenModule)]
</span><a href="#local-6989586621679724350"><span class="hs-identifier hs-var">insts</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-290"></span><span>          </span><span class="annot"><span class="annottext">componentIsIndefinite_ :: Bool
</span><a href="#local-6989586621679724326"><span class="hs-identifier hs-var">componentIsIndefinite_</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679724325"><span class="hs-identifier hs-var">is_indefinite</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-291"></span><span>          </span><span class="annot"><span class="annottext">componentLocalName :: ComponentName
</span><a href="#local-6989586621679724324"><span class="hs-identifier hs-var">componentLocalName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var">cname</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-292"></span><span>          </span><span class="annot"><span class="annottext">componentInternalDeps :: [UnitId]
</span><a href="#local-6989586621679724322"><span class="hs-identifier hs-var">componentInternalDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var">internal_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-293"></span><span>          </span><span class="annot"><span class="annottext">componentExeDeps :: [UnitId]
</span><a href="#local-6989586621679724320"><span class="hs-identifier hs-var">componentExeDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var">exe_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-294"></span><span>          </span><span class="annot"><span class="annottext">componentIncludes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724318"><span class="hs-identifier hs-var">componentIncludes</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var">includes</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-295"></span><span>          </span><span class="annot"><span class="annottext">componentExposedModules :: [ExposedModule]
</span><a href="#local-6989586621679724316"><span class="hs-identifier hs-var">componentExposedModules</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ExposedModule]
</span><a href="#local-6989586621679724357"><span class="hs-identifier hs-var">exports</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-296"></span><span>          </span><span class="annot"><span class="annottext">componentIsPublic :: Bool
</span><a href="#local-6989586621679724315"><span class="hs-identifier hs-var">componentIsPublic</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Bool
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_public"><span class="hs-identifier hs-var hs-var">rc_public</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-297"></span><span>          </span><span class="annot"><span class="annottext">componentCompatPackageKey :: [Char]
</span><a href="#local-6989586621679724313"><span class="hs-identifier hs-var">componentCompatPackageKey</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char]
</span><a href="#local-6989586621679724336"><span class="hs-identifier hs-var">compat_key</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-298"></span><span>          </span><span class="annot"><span class="annottext">componentCompatPackageName :: MungedPackageName
</span><a href="#local-6989586621679724312"><span class="hs-identifier hs-var">componentCompatPackageName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MungedPackageName
</span><a href="#local-6989586621679724340"><span class="hs-identifier hs-var">compat_name</span></a></span><span>
</span><span id="line-299"></span><span>        </span><span class="hs-special">}</span><span>
</span><span id="line-300"></span><span>      </span><span class="annot"><a href="Distribution.Types.Component.html#CFLib"><span class="hs-identifier hs-type">CFLib</span></a></span><span> </span><span class="annot"><span class="annottext">ForeignLib
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-301"></span><span>        </span><span class="annot"><span class="annottext">FLibComponentLocalBuildInfo :: ComponentName
-&gt; ComponentId
-&gt; UnitId
-&gt; [(UnitId, MungedPackageId)]
-&gt; [(OpenUnitId, ModuleRenaming)]
-&gt; [UnitId]
-&gt; [UnitId]
-&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#FLibComponentLocalBuildInfo"><span class="hs-identifier hs-type">FLibComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-302"></span><span>          </span><span class="annot"><span class="annottext">componentUnitId :: UnitId
</span><a href="#local-6989586621679724330"><span class="hs-identifier hs-var">componentUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-303"></span><span>          </span><span class="annot"><span class="annottext">componentComponentId :: ComponentId
</span><a href="#local-6989586621679724329"><span class="hs-identifier hs-var">componentComponentId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var">this_cid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-304"></span><span>          </span><span class="annot"><span class="annottext">componentLocalName :: ComponentName
</span><a href="#local-6989586621679724324"><span class="hs-identifier hs-var">componentLocalName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var">cname</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-305"></span><span>          </span><span class="annot"><span class="annottext">componentPackageDeps :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724332"><span class="hs-identifier hs-var">componentPackageDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var">cpds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-306"></span><span>          </span><span class="annot"><span class="annottext">componentExeDeps :: [UnitId]
</span><a href="#local-6989586621679724320"><span class="hs-identifier hs-var">componentExeDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var">exe_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-307"></span><span>          </span><span class="annot"><span class="annottext">componentInternalDeps :: [UnitId]
</span><a href="#local-6989586621679724322"><span class="hs-identifier hs-var">componentInternalDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var">internal_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-308"></span><span>          </span><span class="annot"><span class="annottext">componentIncludes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724318"><span class="hs-identifier hs-var">componentIncludes</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var">includes</span></a></span><span>
</span><span id="line-309"></span><span>        </span><span class="hs-special">}</span><span>
</span><span id="line-310"></span><span>      </span><span class="annot"><a href="Distribution.Types.Component.html#CExe"><span class="hs-identifier hs-type">CExe</span></a></span><span> </span><span class="annot"><span class="annottext">Executable
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-311"></span><span>        </span><span class="annot"><span class="annottext">ExeComponentLocalBuildInfo :: ComponentName
-&gt; ComponentId
-&gt; UnitId
-&gt; [(UnitId, MungedPackageId)]
-&gt; [(OpenUnitId, ModuleRenaming)]
-&gt; [UnitId]
-&gt; [UnitId]
-&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#ExeComponentLocalBuildInfo"><span class="hs-identifier hs-type">ExeComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-312"></span><span>          </span><span class="annot"><span class="annottext">componentUnitId :: UnitId
</span><a href="#local-6989586621679724330"><span class="hs-identifier hs-var">componentUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-313"></span><span>          </span><span class="annot"><span class="annottext">componentComponentId :: ComponentId
</span><a href="#local-6989586621679724329"><span class="hs-identifier hs-var">componentComponentId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var">this_cid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-314"></span><span>          </span><span class="annot"><span class="annottext">componentLocalName :: ComponentName
</span><a href="#local-6989586621679724324"><span class="hs-identifier hs-var">componentLocalName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var">cname</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-315"></span><span>          </span><span class="annot"><span class="annottext">componentPackageDeps :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724332"><span class="hs-identifier hs-var">componentPackageDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var">cpds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-316"></span><span>          </span><span class="annot"><span class="annottext">componentExeDeps :: [UnitId]
</span><a href="#local-6989586621679724320"><span class="hs-identifier hs-var">componentExeDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var">exe_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-317"></span><span>          </span><span class="annot"><span class="annottext">componentInternalDeps :: [UnitId]
</span><a href="#local-6989586621679724322"><span class="hs-identifier hs-var">componentInternalDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var">internal_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-318"></span><span>          </span><span class="annot"><span class="annottext">componentIncludes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724318"><span class="hs-identifier hs-var">componentIncludes</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var">includes</span></a></span><span>
</span><span id="line-319"></span><span>        </span><span class="hs-special">}</span><span>
</span><span id="line-320"></span><span>      </span><span class="annot"><a href="Distribution.Types.Component.html#CTest"><span class="hs-identifier hs-type">CTest</span></a></span><span> </span><span class="annot"><span class="annottext">TestSuite
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-321"></span><span>        </span><span class="annot"><span class="annottext">TestComponentLocalBuildInfo :: ComponentName
-&gt; ComponentId
-&gt; UnitId
-&gt; [(UnitId, MungedPackageId)]
-&gt; [(OpenUnitId, ModuleRenaming)]
-&gt; [UnitId]
-&gt; [UnitId]
-&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#TestComponentLocalBuildInfo"><span class="hs-identifier hs-type">TestComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-322"></span><span>          </span><span class="annot"><span class="annottext">componentUnitId :: UnitId
</span><a href="#local-6989586621679724330"><span class="hs-identifier hs-var">componentUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-323"></span><span>          </span><span class="annot"><span class="annottext">componentComponentId :: ComponentId
</span><a href="#local-6989586621679724329"><span class="hs-identifier hs-var">componentComponentId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var">this_cid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-324"></span><span>          </span><span class="annot"><span class="annottext">componentLocalName :: ComponentName
</span><a href="#local-6989586621679724324"><span class="hs-identifier hs-var">componentLocalName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var">cname</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-325"></span><span>          </span><span class="annot"><span class="annottext">componentPackageDeps :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724332"><span class="hs-identifier hs-var">componentPackageDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var">cpds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-326"></span><span>          </span><span class="annot"><span class="annottext">componentExeDeps :: [UnitId]
</span><a href="#local-6989586621679724320"><span class="hs-identifier hs-var">componentExeDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var">exe_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-327"></span><span>          </span><span class="annot"><span class="annottext">componentInternalDeps :: [UnitId]
</span><a href="#local-6989586621679724322"><span class="hs-identifier hs-var">componentInternalDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var">internal_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-328"></span><span>          </span><span class="annot"><span class="annottext">componentIncludes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724318"><span class="hs-identifier hs-var">componentIncludes</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var">includes</span></a></span><span>
</span><span id="line-329"></span><span>        </span><span class="hs-special">}</span><span>
</span><span id="line-330"></span><span>      </span><span class="annot"><a href="Distribution.Types.Component.html#CBench"><span class="hs-identifier hs-type">CBench</span></a></span><span> </span><span class="annot"><span class="annottext">Benchmark
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-331"></span><span>        </span><span class="annot"><span class="annottext">BenchComponentLocalBuildInfo :: ComponentName
-&gt; ComponentId
-&gt; UnitId
-&gt; [(UnitId, MungedPackageId)]
-&gt; [(OpenUnitId, ModuleRenaming)]
-&gt; [UnitId]
-&gt; [UnitId]
-&gt; ComponentLocalBuildInfo
</span><a href="Distribution.Types.ComponentLocalBuildInfo.html#BenchComponentLocalBuildInfo"><span class="hs-identifier hs-type">BenchComponentLocalBuildInfo</span></a></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-332"></span><span>          </span><span class="annot"><span class="annottext">componentUnitId :: UnitId
</span><a href="#local-6989586621679724330"><span class="hs-identifier hs-var">componentUnitId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var">this_uid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-333"></span><span>          </span><span class="annot"><span class="annottext">componentComponentId :: ComponentId
</span><a href="#local-6989586621679724329"><span class="hs-identifier hs-var">componentComponentId</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var">this_cid</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-334"></span><span>          </span><span class="annot"><span class="annottext">componentLocalName :: ComponentName
</span><a href="#local-6989586621679724324"><span class="hs-identifier hs-var">componentLocalName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var">cname</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-335"></span><span>          </span><span class="annot"><span class="annottext">componentPackageDeps :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724332"><span class="hs-identifier hs-var">componentPackageDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var">cpds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-336"></span><span>          </span><span class="annot"><span class="annottext">componentExeDeps :: [UnitId]
</span><a href="#local-6989586621679724320"><span class="hs-identifier hs-var">componentExeDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var">exe_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-337"></span><span>          </span><span class="annot"><span class="annottext">componentInternalDeps :: [UnitId]
</span><a href="#local-6989586621679724322"><span class="hs-identifier hs-var">componentInternalDeps</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var">internal_deps</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-338"></span><span>          </span><span class="annot"><span class="annottext">componentIncludes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724318"><span class="hs-identifier hs-var">componentIncludes</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var">includes</span></a></span><span>
</span><span id="line-339"></span><span>        </span><span class="hs-special">}</span><span>
</span><span id="line-340"></span><span>     </span><span class="hs-keyword">where</span><span>
</span><span id="line-341"></span><span>      </span><span id="local-6989586621679724373"><span class="annot"><span class="annottext">this_uid :: UnitId
</span><a href="#local-6989586621679724373"><span class="hs-identifier hs-var hs-var">this_uid</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; UnitId
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_uid"><span class="hs-identifier hs-var">rc_uid</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span>
</span><span id="line-342"></span><span>      </span><span id="local-6989586621679724359"><span class="annot"><span class="annottext">this_open_uid :: OpenUnitId
</span><a href="#local-6989586621679724359"><span class="hs-identifier hs-var hs-var">this_open_uid</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; OpenUnitId
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_open_uid"><span class="hs-identifier hs-var hs-var">rc_open_uid</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span>
</span><span id="line-343"></span><span>      </span><span id="local-6989586621679724328"><span class="annot"><span class="annottext">this_cid :: ComponentId
</span><a href="#local-6989586621679724328"><span class="hs-identifier hs-var hs-var">this_cid</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; ComponentId
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_cid"><span class="hs-identifier hs-var hs-var">rc_cid</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span>
</span><span id="line-344"></span><span>      </span><span id="local-6989586621679724323"><span class="annot"><span class="annottext">cname :: ComponentName
</span><a href="#local-6989586621679724323"><span class="hs-identifier hs-var hs-var">cname</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Component -&gt; ComponentName
</span><a href="Distribution.Types.Component.html#componentName"><span class="hs-identifier hs-var">componentName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ReadyComponent -&gt; Component
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_component"><span class="hs-identifier hs-var hs-var">rc_component</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-345"></span><span>      </span><span id="local-6989586621679724331"><span class="annot"><span class="annottext">cpds :: [(UnitId, MungedPackageId)]
</span><a href="#local-6989586621679724331"><span class="hs-identifier hs-var hs-var">cpds</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; [(UnitId, MungedPackageId)]
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_depends"><span class="hs-identifier hs-var">rc_depends</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span>
</span><span id="line-346"></span><span>      </span><span id="local-6989586621679724319"><span class="annot"><span class="annottext">exe_deps :: [UnitId]
</span><a href="#local-6989586621679724319"><span class="hs-identifier hs-var hs-var">exe_deps</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(AnnotatedId UnitId -&gt; UnitId) -&gt; [AnnotatedId UnitId] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">AnnotatedId UnitId -&gt; UnitId
forall id. AnnotatedId id -&gt; id
</span><a href="Distribution.Types.AnnotatedId.html#ann_id"><span class="hs-identifier hs-var hs-var">ann_id</span></a></span><span> </span><span class="annot"><span class="annottext">([AnnotatedId UnitId] -&gt; [UnitId])
-&gt; [AnnotatedId UnitId] -&gt; [UnitId]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; [AnnotatedId UnitId]
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_exe_deps"><span class="hs-identifier hs-var hs-var">rc_exe_deps</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span>
</span><span id="line-347"></span><span>      </span><span id="local-6989586621679724325"><span class="annot"><span class="annottext">is_indefinite :: Bool
</span><a href="#local-6989586621679724325"><span class="hs-identifier hs-var hs-var">is_indefinite</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-348"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Either IndefiniteComponent InstantiatedComponent
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_i"><span class="hs-identifier hs-var hs-var">rc_i</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-349"></span><span>            </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span class="annot"><span class="annottext">IndefiniteComponent
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-350"></span><span>            </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span class="annot"><span class="annottext">InstantiatedComponent
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-351"></span><span>      </span><span id="local-6989586621679724317"><span class="annot"><span class="annottext">includes :: [(OpenUnitId, ModuleRenaming)]
</span><a href="#local-6989586621679724317"><span class="hs-identifier hs-var hs-var">includes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-352"></span><span>        </span><span class="annot"><span class="annottext">(ComponentInclude OpenUnitId ModuleRenaming
 -&gt; (OpenUnitId, ModuleRenaming))
-&gt; [ComponentInclude OpenUnitId ModuleRenaming]
-&gt; [(OpenUnitId, ModuleRenaming)]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679724296"><span class="annot"><span class="annottext">ComponentInclude OpenUnitId ModuleRenaming
</span><a href="#local-6989586621679724296"><span class="hs-identifier hs-var">ci</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentInclude OpenUnitId ModuleRenaming -&gt; OpenUnitId
forall id rn. ComponentInclude id rn -&gt; id
</span><a href="Distribution.Types.ComponentInclude.html#ci_id"><span class="hs-identifier hs-var">ci_id</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentInclude OpenUnitId ModuleRenaming
</span><a href="#local-6989586621679724296"><span class="hs-identifier hs-var">ci</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ComponentInclude OpenUnitId ModuleRenaming -&gt; ModuleRenaming
forall id rn. ComponentInclude id rn -&gt; rn
</span><a href="Distribution.Types.ComponentInclude.html#ci_renaming"><span class="hs-identifier hs-var hs-var">ci_renaming</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentInclude OpenUnitId ModuleRenaming
</span><a href="#local-6989586621679724296"><span class="hs-identifier hs-var">ci</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">([ComponentInclude OpenUnitId ModuleRenaming]
 -&gt; [(OpenUnitId, ModuleRenaming)])
-&gt; [ComponentInclude OpenUnitId ModuleRenaming]
-&gt; [(OpenUnitId, ModuleRenaming)]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-353"></span><span>            </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadyComponent -&gt; Either IndefiniteComponent InstantiatedComponent
</span><a href="Distribution.Backpack.ReadyComponent.html#rc_i"><span class="hs-identifier hs-var hs-var">rc_i</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-354"></span><span>                </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span id="local-6989586621679724293"><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724293"><span class="hs-identifier hs-var">indefc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-355"></span><span>                    </span><span class="annot"><span class="annottext">IndefiniteComponent -&gt; [ComponentInclude OpenUnitId ModuleRenaming]
</span><a href="Distribution.Backpack.ReadyComponent.html#indefc_includes"><span class="hs-identifier hs-var hs-var">indefc_includes</span></a></span><span> </span><span class="annot"><span class="annottext">IndefiniteComponent
</span><a href="#local-6989586621679724293"><span class="hs-identifier hs-var">indefc</span></a></span><span>
</span><span id="line-356"></span><span>                </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679724291"><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724291"><span class="hs-identifier hs-var">instc</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-357"></span><span>                    </span><span class="annot"><span class="annottext">(ComponentInclude DefUnitId ModuleRenaming
 -&gt; ComponentInclude OpenUnitId ModuleRenaming)
-&gt; [ComponentInclude DefUnitId ModuleRenaming]
-&gt; [ComponentInclude OpenUnitId ModuleRenaming]
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679724290"><span class="annot"><span class="annottext">ComponentInclude DefUnitId ModuleRenaming
</span><a href="#local-6989586621679724290"><span class="hs-identifier hs-var">ci</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ComponentInclude DefUnitId ModuleRenaming
</span><a href="#local-6989586621679724290"><span class="hs-identifier hs-var">ci</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ci_ann_id :: AnnotatedId OpenUnitId
</span><a href="Distribution.Types.ComponentInclude.html#ci_ann_id"><span class="hs-identifier hs-var">ci_ann_id</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(DefUnitId -&gt; OpenUnitId)
-&gt; AnnotatedId DefUnitId -&gt; AnnotatedId OpenUnitId
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">DefUnitId -&gt; OpenUnitId
</span><a href="Distribution.Backpack.html#DefiniteUnitId"><span class="hs-identifier hs-var">DefiniteUnitId</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ComponentInclude DefUnitId ModuleRenaming -&gt; AnnotatedId DefUnitId
forall id rn. ComponentInclude id rn -&gt; AnnotatedId id
</span><a href="Distribution.Types.ComponentInclude.html#ci_ann_id"><span class="hs-identifier hs-var hs-var">ci_ann_id</span></a></span><span> </span><span class="annot"><span class="annottext">ComponentInclude DefUnitId ModuleRenaming
</span><a href="#local-6989586621679724290"><span class="hs-identifier hs-var">ci</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-358"></span><span>                        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">InstantiatedComponent
-&gt; [ComponentInclude DefUnitId ModuleRenaming]
</span><a href="Distribution.Backpack.ReadyComponent.html#instc_includes"><span class="hs-identifier hs-var hs-var">instc_includes</span></a></span><span> </span><span class="annot"><span class="annottext">InstantiatedComponent
</span><a href="#local-6989586621679724291"><span class="hs-identifier hs-var">instc</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-359"></span><span>      </span><span id="local-6989586621679724321"><span class="annot"><span class="annottext">internal_deps :: [UnitId]
</span><a href="#local-6989586621679724321"><span class="hs-identifier hs-var hs-var">internal_deps</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(UnitId -&gt; Bool) -&gt; [UnitId] -&gt; [UnitId]
forall a. (a -&gt; Bool) -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#filter"><span class="hs-identifier hs-var">filter</span></a></span><span> </span><span class="annot"><span class="annottext">UnitId -&gt; Bool
</span><a href="#local-6989586621679724388"><span class="hs-identifier hs-var">isInternal</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ReadyComponent -&gt; [Key ReadyComponent]
forall a. IsNode a =&gt; a -&gt; [Key a]
</span><a href="Distribution.Compat.Graph.html#nodeNeighbors"><span class="hs-identifier hs-var">nodeNeighbors</span></a></span><span> </span><span class="annot"><span class="annottext">ReadyComponent
</span><a href="#local-6989586621679724385"><span class="hs-identifier hs-var">rc</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-360"></span></pre></body></html>